home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_89-06_1989_-_de_Side_B.d64 / interupt maker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  439b  |  13 lines
  1. 10 relocateaddress=49152 :rem $c000
  2. 20 playeraddress=4096    :rem $1000
  3. 30 :
  4. 40 :
  5. 50 fori=0to26:reada:pokepl+i,a:next
  6. 60 poke pl+7,(pl+21)/256:pokepl+2,(pl+21)-peek(pl+7)*256
  7. 70 poke pl+18,(re+5)/256:pokepl+17,(re+5)-peek(pl+18)*256
  8. 80 poke pl+23,(re+2)/256:pokepl+22,(re+2)-peek(pl+23)*256
  9. 90 sys playeraddress
  10. 100 print "[147]now type:":print"poke"re"[157],nr":print"to hear a sound-effect"
  11. 110 data120,169,21,141,20,3,169,16,141,21,3,169,76,141,5,220,32,5,96
  12. 120 data88,96,32,2,96,76,49,234
  13.